Дана матрица М размерностью 6х6. Строки матрицы содержащие отрицательные упорядочить по возрастанию, остальные по убыванию. Эти действия производить в подпрограмм — процедуре- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
RANDOMIZE timer
n = 6: m = 6
DIM a(n, m)
FOR i = 1 TO n
    FOR j = 1 TO m
        a(i, j) = INT(RND * 50) - 10
    NEXT
NEXT
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
FOR i = 1 TO n
    f = 0
    FOR j = 1 TO m
        IF a(i, j) < 0 THEN f = 1
    NEXT
    func a(), i, m, f
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO n
    FOR j = 1 TO m
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
SUB func (a(), n, m, r)
FOR i = 1 TO m - 1
    FOR j = 1 TO m - i
        IF r THEN
            IF a(n, j) > a(n, j + 1) THEN SWAP a(n, j), a(n, j + 1)
        ELSE
            IF a(n, j) < a(n, j + 1) THEN SWAP a(n, j), a(n, j + 1)
        END IF
    NEXT
NEXT
END SUB

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment